;-------------------------------------------------------
RANDOM_FILL
	LDTMR 10
LOOPRND
	CLRALL
	MSET
	LDR RHOLD, 2
	LDR R3,0	
	JUMP RND_F
RND_F	
	JUMP DECISION
	JUMP RND_F
;----	
RANDOM_LOOP
	LDRAND R0,16
	CMP R0,0
	SKIPNZ
	JSR R_LOOP1
	CMP R0,1
	SKIPNZ
	JSR R_LOOP2
	CMP R0,2
	SKIPNZ
	JSR R_LOOP3
	CMP R0,3
	SKIPNZ
	JSR R_LOOP4
	CMP R0,4
	SKIPNZ
	JSR R_LOOP1
	CMP R0,5
	SKIPNZ
	JSR R_LOOP2
	CMP R0,6
	SKIPNZ
	JSR R_LOOP3
	CMP R0,7
	SKIPNZ
	JSR R_LOOP4
	CMP R0,8
	SKIPNZ
	JSR R_LOOP1
	CMP R0,9
	SKIPNZ
	JSR R_LOOP2
	CMP R0,10
	SKIPNZ
	JSR R_LOOP3
	CMP R0,11
	SKIPNZ
	JSR R_LOOP4
	CMP R0,12
	SKIPNZ
	JSR R_LOOP1
	CMP R0,13
	SKIPNZ
	JSR R_LOOP2
	CMP R0,14
	SKIPNZ
	JSR R_LOOP3
	CMP R0,15
	SKIPNZ
	JSR R_LOOP4
	RET

R_LOOP1
	LDRAND RX,5
	LDRAND RY,5
	LDRAND RZ,3
	RET
R_LOOP2
	LDRAND RX,5
	LDRAND RY,5
	LDRAND RZ,3
	INCR RZ
	INCR RZ
	RET
R_LOOP3
	LDRAND RX,5
	LDRAND RY,3
	LDRAND RZ,5
	RET
R_LOOP4
	LDRAND RX,5
	LDRAND RY,3
	LDRAND RZ,5
	INCR RY
	INCR RY
	RET

DECISION
	CMP R3,0
	SKIPNZ
	JSR INCREASE
	CMP R3,125
	SKIPNZ
	JUMP DECREASE
	SKIPTOUT
	JSR DECISION
	RET

INCREASE
	JSR RANDOM_LOOP
	TSTVOX
	SKIPNZ
	JSR LIGHTON
	CMP R3,125
	SKIPNZ
	RET
	JUMP INCREASE

DECREASE
	JSR RANDOM_LOOP
	TSTVOX
	SKIPZ
	JSR LIGHTOFF
	CMP R3,0
	SKIPNZ 
	RET
	JUMP DECREASE

LIGHTOFF
	MCLR
	VOXM
	SHOW
	DECR R3
	RET


LIGHTON
	MSET
	VOXM
	SHOW
	INCR R3
	RET